| Filename | (eval 1130)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 0 statements in 0s |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | my $context = shift || die "template sub called without context\n"; | ||||
| 3 | 4 | 8µs | my $stash = $context->stash; # spent 8µs making 4 calls to Template::Context::stash, avg 2µs/call | ||
| 4 | my $output = ''; | ||||
| 5 | my $_tt_error; | ||||
| 6 | |||||
| 7 | eval { BLOCK: { | ||||
| 8 | $output .= "<!DOCTYPE html>\n<!-- TEMPLATE FILE: "; | ||||
| 9 | #line 2 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 10 | $output .= $stash->get(['template', 0, 'name', 0, 'split', [ '/' ], 'last', 0]); | ||||
| 11 | $output .= " -->\n\n"; | ||||
| 12 | #line 4 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 13 | # USE | ||||
| 14 | $stash->set('Koha', | ||||
| 15 | $context->plugin('Koha')); | ||||
| 16 | $output .= "\n"; | ||||
| 17 | #line 22 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 18 | if ($stash->get(['Koha', 0, 'Preference', [ 'DumpTemplateVarsIntranet' ]])) { | ||||
| 19 | $output .= "\n "; | ||||
| 20 | #line 21 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 21 | |||||
| 22 | # TRY | ||||
| 23 | $output .= do { | ||||
| 24 | my $output = ''; | ||||
| 25 | my ($_tt_error, $_tt_handler); | ||||
| 26 | eval { | ||||
| 27 | $output .= "\n "; | ||||
| 28 | #line 7 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 29 | # USE | ||||
| 30 | $stash->set('Stash', | ||||
| 31 | $context->plugin('Stash')); | ||||
| 32 | $output .= "\n "; | ||||
| 33 | #line 8 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 34 | # USE | ||||
| 35 | $stash->set('Dumper', | ||||
| 36 | $context->plugin('Dumper')); | ||||
| 37 | $output .= "\n <!--\n "; | ||||
| 38 | #line 14 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 39 | |||||
| 40 | # FILTER | ||||
| 41 | $output .= do { | ||||
| 42 | my $output = ''; | ||||
| 43 | my $_tt_filter = $context->filter('replace', [ '<!--', '<!- -' ]) | ||||
| 44 | || $context->throw($context->error); | ||||
| 45 | |||||
| 46 | $output .= "\n "; | ||||
| 47 | #line 13 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 48 | |||||
| 49 | # FILTER | ||||
| 50 | $output .= do { | ||||
| 51 | my $output = ''; | ||||
| 52 | my $_tt_filter = $context->filter('replace', [ '-->', '- ->' ]) | ||||
| 53 | || $context->throw($context->error); | ||||
| 54 | |||||
| 55 | $output .= "\n "; | ||||
| 56 | #line 12 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 57 | $output .= $stash->get(['Dumper', 0, 'dump', [ $stash->get(['Stash', 0, 'stash', 0]) ]]); | ||||
| 58 | $output .= "\n "; | ||||
| 59 | |||||
| 60 | &$_tt_filter($output); | ||||
| 61 | }; | ||||
| 62 | |||||
| 63 | $output .= "\n "; | ||||
| 64 | |||||
| 65 | &$_tt_filter($output); | ||||
| 66 | }; | ||||
| 67 | |||||
| 68 | $output .= "\n -->\n "; | ||||
| 69 | }; | ||||
| 70 | if ($@) { | ||||
| 71 | $_tt_error = $context->catch($@, \$output); | ||||
| 72 | die $_tt_error if $_tt_error->type =~ /^return|stop$/; | ||||
| 73 | $stash->set('error', $_tt_error); | ||||
| 74 | $stash->set('e', $_tt_error); | ||||
| 75 | if (defined ($_tt_handler = $_tt_error->select_handler())) { | ||||
| 76 | $_tt_error = 0; | ||||
| 77 | } | ||||
| 78 | else { | ||||
| 79 | # DEFAULT | ||||
| 80 | $output .= "\n <!--\n DumpTemplateVarsIntranet is set to 'Do', but\n Template::Plugin::Stash is not installed.\n -->\n "; | ||||
| 81 | $_tt_error = ''; | ||||
| 82 | } | ||||
| 83 | } | ||||
| 84 | # FINAL | ||||
| 85 | die $_tt_error if $_tt_error; | ||||
| 86 | $output; | ||||
| 87 | }; | ||||
| 88 | |||||
| 89 | $output .= "\n"; | ||||
| 90 | } | ||||
| 91 | |||||
| 92 | $output .= "\n\n"; | ||||
| 93 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 94 | if (($stash->get('bidi'))) { | ||||
| 95 | $output .= "<html lang=\""; | ||||
| 96 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 97 | $output .= $stash->get('lang'); | ||||
| 98 | $output .= "\" dir=\""; | ||||
| 99 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 100 | $output .= $stash->get('bidi'); | ||||
| 101 | $output .= "\">"; | ||||
| 102 | } | ||||
| 103 | else { | ||||
| 104 | $output .= "<html lang=\""; | ||||
| 105 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/doc-head-open.inc" | ||||
| 106 | $output .= $stash->get('lang'); | ||||
| 107 | $output .= "\">"; | ||||
| 108 | } | ||||
| 109 | |||||
| 110 | $output .= "\n<head>\n"; | ||||
| 111 | } }; | ||||
| 112 | if ($@) { | ||||
| 113 | $_tt_error = $context->catch($@, \$output); | ||||
| 114 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 115 | } | ||||
| 116 | |||||
| 117 | return $output; | ||||
| 118 | } | ||||
| 119 | |||||
| 120 | ; |